home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000065_amos-request@svcs1.digex.net_Thu Mar 6 11:32:06 1997.msg < prev    next >
Text File  |  1997-04-01  |  5KB  |  128 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id LAA02971
  3.     for <mcox@access.digex.net>; Thu, 6 Mar 1997 11:32:04 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id FAA17049
  6.     for amos-out; Thu, 6 Mar 1997 05:42:57 -0500 (EST)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id FAA17046
  9.     for <amos-list@svcs1.digex.net>; Thu, 6 Mar 1997 05:42:56 -0500 (EST)
  10. Received: from f10.hotmail.com (F10.hotmail.com [207.82.250.21])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id FAA07198
  12.     for <amos-list@access.digex.net>; Thu, 6 Mar 1997 05:42:55 -0500 (EST)
  13. Received: (from root@localhost) by f10.hotmail.com (8.7.5/8.7.3) id CAA27790; Thu, 6 Mar 1997 02:42:25 -0800 (PST)
  14. Date: Thu, 6 Mar 1997 02:42:25 -0800 (PST)
  15. Message-Id: <199703061042.CAA27790@f10.hotmail.com>
  16. Received: from 193.214.146.22 by www.hotmail.com with HTTP;
  17.     Thu, 06 Mar 1997 02:42:25 PST
  18. X-Originating-IP: [193.214.146.22]
  19. From: " Ragnar  Fyri" <ragnar_fyri@hotmail.com>
  20. To: amos-list@access.digex.net
  21. Subject: Transition effects part 1
  22. Content-Type: multipart/mixed; boundary="====================987654321_0==_"
  23. X-Attachment: Fx1_2.txt
  24. Status: RO
  25. X-Status: 
  26.  
  27.  
  28. --====================987654321_0==_
  29. Content-Type: text/plain 
  30.  
  31.  
  32.  
  33. ---------------------------------------------------------
  34. Get Your *Web-Based* Free Email at http://www.hotmail.com
  35. ---------------------------------------------------------
  36.  
  37. --====================987654321_0==_
  38. Content-Type: text/plain; name="Fx1_2.txt"
  39. Content-Disposition: attachment; filename="Fx1_2.txt"
  40.  
  41.   After all those questions in my first letter  I'd better contribute some-
  42. thing for a change. :-) While  looking  through some dusty old corner of my
  43. hard disk I found a handful of small  programs  I made while working on the
  44. slide show I mentioned last time. The group leader and I had a quite lively
  45. discussion about what kind of  transitions  we  would use between pictures,
  46. and I got inspired and made up a handful of effects. The first of them fol-
  47. low here, more will follow later.
  48.  
  49.   At one point our esteemed leader  wanted  pictures to change with a white
  50. flash, and I wrote this....
  51.  
  52. Dim F(31) : Hide On
  53. 1 Unpack 6 To 0 : Auto View Off
  54. Unpack 7 To 1 : Screen Hide 1
  55. Screen Open 2,320,10,64,0 : Flash Off : Get Palette 1 : Screen Hide 2
  56. Screen Open 3,320,10,64,0 : For A=0 To 31 : Colour A,$FFF : Next
  57. Screen Hide 3 : Auto View On
  58. Screen 1 : For A=0 To 31 : F(A)=Colour(A) : Colour(A),$FFF : Next
  59. Screen 0 : Wait Key
  60. Fade 2 To 3 : Wait 2*15
  61. Screen Show 1 : Screen Hide 0
  62. Screen 1 : Fade 2 To 2 : Wait 150
  63. If Upper$(Inkey$)<>"Q" Then Goto 1
  64. Default : Edit
  65.  
  66. [For perfectionists who like to keep  the  original filenames: This one was
  67. called FlashOverTest.AMOS]
  68.  
  69.   Our leader didn't think the "flash" was fast enough, so I wrote something
  70. a bit more complicated (but faster):
  71.  
  72. Dim F(31) : Hide On : OPP=True : Dim FARGER(31,2,1)
  73. Global FARGER(),LAG
  74. 1 Unpack 6 To 0 : Auto View Off : FINNFARGER[0]
  75. Unpack 7 To 1 : Screen Hide 1 : FINNFARGER[1]
  76. Screen Open 2,320,10,64,0 : Flash Off : Get Palette 1 : Screen Hide 2
  77. Screen Open 3,320,10,64,0 : For A=0 To 31 : Colour A,$FFF : Next
  78. Screen Hide 3 : Auto View On 
  79. Screen 1 : For A=0 To 31 : Colour(A),$FFF : Next
  80. Screen 0 : Wait Key : FAD[OPP]
  81. Screen Show 1 : Screen Hide 0
  82. Screen 1 : FAD[NED] : Wait 150
  83. If Upper$(Inkey$)<>"Q" Then Goto 1
  84. Default : Edit 
  85. '
  86. Procedure FINNFARGER[LAG]
  87.    Screen LAG : ANTFAR=Screen Colour
  88.    If ANTFAR>32
  89.       Default : Locate ,12 : Curs Off
  90.       Centre "Skjerm"+Str$(LAG)+" er for dyp -"+Str$(ANTFAR)+" farger!"
  91.       End 
  92.    End If 
  93.    For A=0 To ANTFAR-1
  94.       FARGER(A,0,LAG)=Colour(A)
  95.       'A bit of calculation...
  96.       FARGER(A,2,LAG)=$FFF
  97.       FARGER(A,1,LAG)=($FFF+Colour(A))/2
  98.    Next 
  99. End Proc
  100. Procedure FAD[OPP]
  101.    ANTFAR=Screen Colour
  102.    If OPP Then _START=0 Else _START=2
  103.    _SLUTT=2-_START : _STEG=Sgn(_SLUTT-_START)
  104.    For A=_START To _SLUTT Step _STEG
  105.       For B=0 To ANTFAR-1 : Colour B,FARGER(B,A,Screen)
  106.       Next : Wait 2 : Wait Vbl
  107.    Next 
  108. End Proc
  109.  
  110. [This one was called FlashOverFaster.AMOS]
  111. (The strange variable names  are  Norwegian,  and  a translation of some of
  112. them may make things a bit clearer:
  113.   OPP          up
  114.   FARGER       colo(u)rs
  115.   LAG          layer
  116.   FINNFARGER   find colo(u)rs
  117.   NED          down
  118.   ANTFAR       (short for "antall farger") number of colo(u)rs
  119.   START        start(!)
  120.   SLUTT        end
  121.   STEG         step
  122.  
  123.   Both programs require two pictures  (preferably  non-HAM) packed into two
  124. banks, or just change the opening  lines  to  load the pics every time. The
  125. pictures can be any size and  resolution,  even  different from each other.
  126. The programs that follow later do fancy  transitions by copying from screen
  127. to screen, so to prepare for them  you  should find or make two pictures of
  128. equal size and resolution and preferably with the same palette as well.